sGroup= "UnknowGroup" 'No group
'sGroup= "testors"     'Has Testor2

sUser= "UnknowUser" ' No user
'sUser= "Testor1"  ' Non-token
'sUser= "Testor2"  ' Authenticated user

'sOTP= "82487311"  '0  Succeed
'sOTP= "82487312"  '13 Failure
sOTP= "8248731112" '2  Bad parameter
'======================================================
  Set OBJ = CreateObject("ActivCard.Authentication")

  msgbox OBJ.UserSyncAuthCheck( sGroup, sUser, sOTP )

  Set OBJ = Nothing